

#include "hsp3util.as"	

	screen 0,320,180		
	font msgothic,30,1	
	co=0	
	ti1="::":ti2="//"
	t1="":t2=""
*tmprt
	gettimestr t1			
	getdatestr t2			
	
	if(co=0):ti2=t2:co=1

	redraw 0
	color 255,255,255:boxf		
	color 0,0,0			
	font msgothic,30,1
	
	pos 0,0:mes ""+t2+""			
	pos 0,40:mes ""+t1+"ݎ"	

	font msgothic,10,1
	mes "^C}[̐ݒ莞(::b)͂Ă"
	input ti1,70,30
	mes "^C}[̐ݒ(//)͂Ă"
	input ti2,70,30
	if(t1=ti1)&(t2=ti2):goto *timeup

	redraw 1

	wait 100			
	goto *tmprt			

*timeup
	cls
	font msgothic,30,1	
	mes "Ԃł["

	repeat
	mmload "U}V.mid",1,0
	mmplay 1
	
	if(co=1):button "~߂",*sto:co=0
	wait 1100
	loop
	stop
	
*sto

	cls	
	goto *tmprt